10 REM     ***********************
20 REM     *    "CIRCLE MOVER"   *
30 REM     *   VON LEIF KOBBELT  *
40 REM     *   7500 KARLSRUHE 1  *
50 REM     *  GRAF-RHENASTR. 23  *
60 REM     ***********************
70 :
80 :
100 INPUT"[147]             STARTADRESSE ";S
110 INPUT" FUR WELCHE BIT-MAP (1-7) ";T
120 OPEN1,8,0,"CIRCLE.CODE":GET#1,A$,A$
130 GET#1,A$:A=ASC(A$+CHR$(0))
140 POKES+B,A:B=B+1
150 IFST<>64THEN130
160 CLOSE1
170 FORA=1TO11
180 READC1,C2:C1=C1+S:C2=C2+S
190 C3=INT(C2/256):C4=C2-C3*256
200 POKEC1,C4:POKEC1+1,C3
210 NEXT
220 POKES+435,T*32
230 PRINT"[147]     ABSPEICHERN ?"
240 POKE198,0:WAIT198,1:GETA$
250 IFA$="N"THENPRINT"[147]":END
260 IFA$<>"J"THEN190
270 SYS (57812)"CIRCLE"+STR$(S),8,1
280 S1=INT(S/256):S2=S-S1*256
290 POKE193,S2:POKE194,S1
300 S=S+465:S1=INT(S/256):S2=S-S1*256
310 POKE174,S2:POKE175,S1
320 SYS 62954
330 PRINT"[147]":END
340 :
350 :
1000 DATA 31,232,51,232,125,136,153,236
1010 DATA 214,256,221,46,228,256,295
1020 DATA 322,306,322,328,335,356,360